home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dialog / demo3d / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-03-25  |  2.8 KB  |  108 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "CTL3D Dialog Box.."
  5.    ClientHeight    =   3276
  6.    ClientLeft      =   1140
  7.    ClientTop       =   1728
  8.    ClientWidth     =   7440
  9.    Height          =   3696
  10.    Left            =   1092
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3276
  15.    ScaleWidth      =   7440
  16.    Top             =   1356
  17.    Width           =   7536
  18.    Begin ComboBox Combo1 
  19.       Height          =   288
  20.       Left            =   2232
  21.       TabIndex        =   6
  22.       Text            =   "Combo1"
  23.       Top             =   1080
  24.       Width           =   2532
  25.    End
  26.    Begin DirListBox Dir1 
  27.       Height          =   672
  28.       Left            =   5184
  29.       TabIndex        =   5
  30.       Top             =   648
  31.       Width           =   1956
  32.    End
  33.    Begin DriveListBox Drive1 
  34.       Height          =   288
  35.       Left            =   5184
  36.       TabIndex        =   4
  37.       Top             =   2232
  38.       Width           =   1956
  39.    End
  40.    Begin FileListBox File1 
  41.       Height          =   600
  42.       Left            =   5184
  43.       TabIndex        =   3
  44.       Top             =   1440
  45.       Width           =   1956
  46.    End
  47.    Begin ListBox List1 
  48.       Height          =   792
  49.       Left            =   216
  50.       TabIndex        =   2
  51.       Top             =   864
  52.       Width           =   1380
  53.    End
  54.    Begin CommandButton Command1 
  55.       Caption         =   "OK"
  56.       Height          =   300
  57.       Left            =   3312
  58.       TabIndex        =   1
  59.       Top             =   2880
  60.       Width           =   804
  61.    End
  62.    Begin TextBox Text1 
  63.       Height          =   288
  64.       Left            =   216
  65.       TabIndex        =   0
  66.       Text            =   "Text1"
  67.       Top             =   216
  68.       Width           =   7068
  69.    End
  70.    Begin Line Line1 
  71.       X1              =   144
  72.       X2              =   7272
  73.       Y1              =   2736
  74.       Y2              =   2736
  75.    End
  76.    Begin Label Label1 
  77.       BackStyle       =   0  'Transparent
  78.       Caption         =   "These are just some samples.."
  79.       Height          =   300
  80.       Left            =   288
  81.       TabIndex        =   7
  82.       Top             =   1728
  83.       Width           =   4044
  84.    End
  85. Option Explicit
  86. Sub Command1_Click ()
  87. Unload Me
  88. End Sub
  89. Sub Form_Load ()
  90. 'this form is going to be a 3D Dialog box...
  91. 'first register me...
  92. Dlg3DRegister Me
  93. 'Make me a 3D dialog
  94. DlgIn3D Me
  95. 'Now fix my menu
  96. DlgSysMenu Me
  97. 'Center me on the screen.
  98. CenterForm Me
  99. End Sub
  100. Sub Form_Paint ()
  101. 'Here, make all of my controls 3D
  102. FormIn3D Me, 1
  103. End Sub
  104. Sub Form_Unload (Cancel As Integer)
  105. 'We are now finished, so unregister me and
  106. Dlg3DUnregister Me
  107. End Sub
  108.